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0 tz}^(D<i^^(D-yu± y-^i/TsT j^<Dmmt,^m(D^mxh^xi^&<Dm^^^^j;^, 

Table 2 — TEMPLATE BUILDER 
procedure template_tool {) ; 
set up screen ; 
draw robot replica graphic ; 
draw grid ; 

display mouse cursor ; 
select template design tool ; 
while (not finished) ; 



mm-. 
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Table 3 -- PROCESS BUILDER 

procedure process_tool () ; 

set up screen ; 

draw robot replica graphic ; 

draw grid ; 

draw process list ; 

display mouse cursor ; 

select template design tool ; 

while (not finished) ; 



. -5; 
5: 
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CaseCIindow select) 

Process List: 



Run/Control: 
end (Process tool); 



(1) set up screen; 

(2) display process in list mode; 

(3) enter min/max time via keyboard; 

(4) scroll down screen; 

(5) do steps 3-4 until finished; 

(6) exit back to previous window; 
return to Run/Control window; 



m^i^^ y K-feU^ h) 

>^D-feX»jX h: (l)X^ y-->-tr*y hT^T^; 

A; 

(4)Xi> y->'CDX^P-;b:$'*^7>; 
(6)mIO'>-f > KJ::M-r: 

*^7(:>^p-t?X7-;b); 



-37- 



'f%/^>li^^V^^zrir:f'yaV^7x^'tz,}iii^x^. :t-<u-^tc 1 ^fclt^tvgJl 

^<^z.}it^x^. ^{'^m^n\^m^<ojj^^^^^^b'h^x^. {-^ncoggffii-^^ 
1^ 



-38- 



o rcOx^-T^l/— h tVUT^^ >'i/Xi5' y">'7 1 ftX'<;^7'u>rir^i/3 >'6 2 
y-y7 l^^^r <!r^5-e#, ^^.^^-f v h3Sg^^ffli--5r <b{cj; 

roy — i/3 y-t^i^a y8 5(17 — >^3 >' i 3(D— 



-39- 



rtO:/nir;^ tVi-T^xT y^y—/l^^^^^^t^. T'n-t^ tVi-T^^ y^:^^ 

x:^^ ^) —y ±.(D^^y Y-^X.x}^^\y y V ^^^-t^ ^ t-h^x^ ir^u— 
^t>:L(D'fn^7s v-jv^ ^<o^o (c^ffl-r^ ;6>ti r c tcpjffltcEmi" 

6 1 tmrniCy"^ :^:fu4^:=^^-<DX.oii^^yt'^-^ 1 5 <!:^'g^ Lfcx ^ >^ 
^4 ^ yV:^^ V-y9 1 ^MT. ±i5ft/mrflir^ v'a y 9 5 F^cOft/hBtr^ ^ 



-40- 



(2) ^(DXmf}*^:^^yy'^tl^^^Xh^f}^t*oi!)\ ^tc\t (3) ^(Dj^m*^ 



-41- 



x^'^y^Mzn-t^^^-y hmm<Dttmtiti(D'^y':/MzMLxj^mLx\^^^ 

^y^:td^XJ^^m^:^^y i/t^i^ommmc Bat- ^ _hiB p 2/ h ^Stc^tT ^ ^^ 
fz^y:^hy^i^3yiiCik^LX\^^^o iia^'Vtfa.— y h o-/u (y^h 

!>:^r)ji, ^'rmn^ti^'r^x<Di^m\zi^^i^'r^x(Dxm(D±»(Dmn^ 
n;o^to^S);i»5tT^cft?ti^fiijic^T 6 d t ^*>x^^^ y^^y^o^mrt"^ 

:^5T#5o tzxit. ±mmn(D^T\zti^^m^j:'r^x(DW)t ^t^MLUL. -hie 

pi^zt^>x^^id\ wi^JXS^'^irh1jm^^X^^^xh^t^^t>ti^o ^(om 

^:xx»:mi-^:^mt^&i-^m\mm<o:^Sc^mm't^o ^^xit. ±tsn.i< 

Sr«*U. $^W(oY^m<o±Wt \.X(D^^<O^T\mWi:mA^^m<D:^^V^z2,- 



-42- 



co^-ifi:Sr«* $ -fr ^ r i: (c 5, 

^-iS:^5eroTV^^Xg(7)#^(::*rL. :7rv^-;5'>r A^7^:/KSri*:3£L> ft 
t^*&?:^XS(Cfo61^>'7^yU;55i|,< 1 iW_hc^Xmd5ffic|&7S^Pfl 



-43- 



Table 4 — MULTITASKING DATA STRUCTURE 
STRUCTURE TASK ARRAY [11500 elements] 



BYTE 


PROCESS NUMBER ; 


BYTE 


TASK NUMBER ; 


CHAR [25] 


TASK NUMBER ; 


INTEGER 


TASK X CORDINATE OF WORKSTATION ; 


INTEGER 


TASK Y CORDINATE OF WORKSTATION ; 


LONG INTEGER 


ENCODED REAL TIME FOR PICKUP OR DROPOFF 


CHAR [I] 


DROPOFF/PICKUP FLAG ; 


CHAR [5] 


MOVEJALG ; 


CHAR [5] 


RESOURCE FLAG ; 



^:^^^^mmi 1 5 0 OiU;< > 



^ + 5^rJ'[2 5] 
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] 

Table 5 ~ MULTITASKING (BUILD SCHEDULE) 
PROCEDURE BUILD_MULTITASK_SCHEDULE () 
BEGIN 

TIME = 0 : 

START_FIRST_PROCESS ; 

WHILE NOT ALL PROCESSES STARTED DO BEGIN 

INCREMENT TIMER BY 1 ; 

IF ANY TASK NEEDS MOVEMENT THEN 

SET TASK MOVE FLAG 

ELSE 

START_NEXT_PROCESS 

IF MOVE_FLAG> 1 THEN TIME^ARBITRATEO ; 

IF TASK_MOVE THEN ADD TASK TO TASK_ARRAY [TASK^COUNTER] 

END ; 

WHILE NOT ALL PROCESSES COMMPLETED DO BEGIN 
INCREMENT TIMER BY 1 ; 

IF ANY PROCESS NEEDS MOVEMENT THEN SET TASK MOVE FLAG ; 



IF M0VE_FLAG>1 THEN TIME_ARBITRATE() ; 
IF TASK_M0VE THEN ADD TASK_ARRAY [TASK] ; 
END ; 
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END ; 

e-S-r-cTO X d^^7-t-5 ^ T'C o:/D-^rx^±-r'^■c©fPllicfc 
■fe y hr^o 
x;Ux[EL S E] 
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Table 6 — MULTITASKING (TIME ARBITRATE) 
PROCEDURE TIME^ARBITRATEO 

INTENGER FUZZY.TIME.COMP = MAX.TIME ; 

{set the comparator to a maximum value} 

BYTE CRITICAL.FLAG = 0 

BYTE CRITICAL_FLAG_ARRAY [5] = {0.0,0,0.0) ; 
BEGIN 

FOR I = 1 TO MAX.PROCESSES 

IF (PROCESS [I] . MOVE_FLAG_SET^AND 
FUZZY_TIME [1] <FUZZY_TIME_COMP) 
THEN BEGIN 
TASK_MOVE = I ; 



FUZZY_TIME_COMP = FUZZY.TIME [l] 
IF (FUZZY^TIME = 0) THEN BEGIN 
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SET CRITICAL_FLAG ; 
SET CRITICA.ARRAY [TASK] ; 
END ; 
END ; 

IF CRITICAL_FLAG> 1 THEN REARRANGE.ARRAYO ; 
ELSE 

ADD TASK_ARRAY [TASK_MOVE] ; 

END : 



m6m i^m^:^^>vmrmm 
mmmm^mc ) 

-l'A^'>y^^i^u^ ctl^0yD•fe;^:^'x^^7^ ^-(<■ux'i^]L•t 
/N'^ h ^ y ;^;i/_75 •y^*_Tl/^[5]={0, 0, 0, 0. 0}; 
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^) 'J X-f ;^;L'7-7 y /> l/ib. TU-fOHK^IJC ); 

Table 7 — Multitasking (Resource Arbitrate) 
PROCEDURE RESOURCE_ARBITRATE() 

BYTE CRITICAL.FLAG = 0 ; 

{initialize critical flag) 

BYTE CRITICAL_FLAG_ARRAY [5] = {0, 0, 0. 0, 0. ) ; 

BEGIN 

COMPARE CRITICAL_PR0CESS_1_FUZZY_TIME WITH 

CRITICAL_PR0CESS_2_TASK_TIME ; 
1F>TASK_M0VE = PR0CESS_2 ; 
ELSE 

COMPARE CRITICAL_PR0CESS_2_FUZZY_TIME_WITH 
CRITICAL_PR0CESS_1_TASK TIME ; 

IF>TASK^MOVE = PRXESS_1 ; 



IF TASK.MOVE TRUE 

ADD TASK_ARRAY [TASK_MOVE] ; 

ELSE BEGIN 
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SET CRITICAL.FUG ; 
SET CRITICAL_FLAG_ARRAY [TASK] ; 
REARRANGE_TASK_ARRAY() ; 
m ; 
END ; 



/nV h ^ ^}f-^^JVyyyCfrv^l5:={0. 0, 0. 0. 0}; 

7°n-feX lO^' Ux/f :^;l/7 T i^-f AiT'p-tX 2CD^' 'J T-^ :/7;U 



-50- 



Table 8 — Multitasking (Rearrange Tasks) 
PROCEDURE REARRANGE_TASK_ARRAY() 

BEGIN 

REPEAT 

POSITION = POSITION - I ; 
UNTIL TASK_ARRAY [POSITION] = 
CRITICAL,FUG_ARRAY [TASK] ; 
INCREMENT TASK [TASK.ARRAY 
[POSITION] . MIN.TIME] BY X ; 
SET POSITION TO CURRENT TASK^ARRAY VALUE ; 
SET TIMER TO CURRENT TASK^ARRAY VALUE ; 
RETURN TO MULTITASKJUILDER ; 
END ; 
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